Rem
	Lyphia
	Started: 9 Nov 2008
	
	(C) Eduard Urbach
	
	Website for developers:
	
	--------------------------------
	http://code.google.com/p/lyphia/
	--------------------------------
End Rem

' Strict
SuperStrict

' Framework
Framework BRL.Basic

' Files
Import "GameStates/TGameStateInit.bmx"
Import "GameStates/TGameStateEditor.bmx"
Import "GameStates/TGameStateInGame.bmx"
Import "GameStates/TGameStateExit.bmx"

' Run the main loop
?Not Debug
Try
?
	game = TGame.Create()
	
	gsInit = TGameStateInit.Create(game)
	gsInGame = TGameStateInGame.Create(game)
	gsEditor = TGameStateEditor.Create(game)
	
	game.SetGameState(gsInit)
	'game.SetGameState(gsInGame)
	game.SetGameState(gsEditor)
	
	game.Run()
?Not Debug
Catch ex:Object
	Print ex.ToString()
End Try
?

' Quit
gsExit = TGameStateExit.Create(game)
game.SetGameState(gsExit)
game.Remove()
End
